home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
comm2
/
zpont311.lha
/
zpoint-3.11
/
Rexx
/
Holiday.zprx
< prev
next >
Wrap
Text File
|
1995-03-09
|
4KB
|
134 lines
/*
Holiday.zp 1.0 (13.2.94) by Ueli Kaufmann
ARexx Skript für Zodiac's Point V37.118ß
Zweck:
------
Versendet automatisch Replys auf PMs.
*/
/* Name fuer die Adressen-Datei */
/* in dieser datei stehen die Adressen, an die keine Info */
/* verschickt werden soll. Sinnvoll bei Mailer-Infos, etc */
adFile = 'ZP:holiday_ad.zp'
/* Name fuer die ID-Datei (wird automatisch erstellt.) */
/* In dieser Datei werden die IDs der bereits bearbeiteten */
/* PMs gespeichert. Schuetzt ausserdem gegen Dupes */
idFile = 't:holiday_id.zp'
/* Name fuer die tmp-Datei (wird automatisch erstellt.) */
/* Da WRITEMESSAGE die zu verschickende Datei loescht, */
/* muessen wir eine Temporaer-Datei anlegen. */
tmpFile = 't:holiday.tmp'
/* Name fuer die Text-Datei */
/* in dieser Datei steht der bei Abwesenheit zu versendende Text */
txtFile = 'ZP:holiday_txt.zp'
parse arg zpPort /* ZP-Port Name als Option erhalten. */
if zpPort == "" then /* Wirklich? */
zpPort = "ZPoint" /* Ätschi-Bätschi */
address value zpPort /* fuer die hardcore-user mit mehreren zps ;) */
options results
if ~open('fhid',idFile,append) then /* ID-Datei oeffnen */
do
say "! ID-Datei" idFile "konnte nicht geoeffnet werden."
exit(5)
end
if ~open('fhad',adFile,read) then /* Adress-datei oeffnen */
do
dummy = close('idfile')
say "! Adressen-Datei" adFile "konnte nicht geoeffnet werden."
exit(5)
end
WHICHLEVEL
if RESULT ~= "BOARDMENU" then
BOARDMENU
JUMPTOBOARD 3 /* Balken aufs PM-Brett stellen. */
COUNT New /* neue Nachrichten zaehlen */
if RESULT = 0 then
do
say "> Keine neuen Nachrichten im PM."
exit(0)
end
ENTERBOARD /* ins Brett einsteigen */
do forever
MESSAGEINFO id
msgID = RESULT
MESSAGEINFO Author
msgAuthor = RESULT
MESSAGEINFO Subject
msgSubj = RESULT
dummy = seek('fhad',0,'B') /* muessen wir den Absender beachten? */
do forever
instring=readln('fhad')
if instring == msgAuthor then /* Nein. */
do
say ">" msgAuthor "steht im exeption-file."
leave
end
if eof('fhad') then /* Datei-Ende ereicht? */
do /* Ja. */
dummy = seek('fhid',0,'B') /* haben wir fuer diese Nachricht */
do forever
instring=readln('fhid') /* bereits ein Vertroester verschickt? */
if instring == msgID then /* Ja! */
do
say "> Vertroester fuer >>" || msgSubj || "<< bereits verschickt."
leave
end
if eof('fhid') then /* Datei-Ende ereicht? */
do /* Ja. Vertroester abschicken */
address command "copy" txtFile "to" tmpFile "quiet"
msgAuthor = 'RECEIVER "'msgAuthor'"'
msgSubj = 'SUBJECT "'msgSubj'"'
WRITEMESSAGE tmpFile msgAuthor msgSubj
if rc ~= 0 then /* Erfolgreich? */
do
say "* Vertroester erfolgreich verschickt."
dummy = writeln('fhid',msgID) /* Ja, msg-ID abspeichern. */
end
else
say "! Fehler beim Vertroester verschicken."
leave
end
end
leave
end
end
JUMPTONEW down
if rc = 0 then
leave
dummy = seek('fhad',0,'B')
end
dummy = close('idfile')
dummy = close('adfile')
exit